home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 2000 August: Tool Chest / Dev.CD Aug 00 TC Disk 1.toast / pc / sample code / contributed / waste / waste pascal interfaces / longcoords.p next >
Encoding:
Text File  |  2000-06-23  |  657 b   |  44 lines
  1. UNIT LongCoords;
  2.  
  3. { Pascal interface to the WASTE text engine: }
  4. { Long Coordinates }
  5. { version 1.3 }
  6.  
  7. { Copyright © 1993-1998 Marco Piovanelli }
  8. { All Rights Reserved }
  9.  
  10. INTERFACE
  11.     USES
  12.         Types;
  13.  
  14.     TYPE
  15.  
  16. { long coordinates types }
  17.  
  18.         LongPt = RECORD
  19.                 CASE INTEGER OF
  20.                     0: (
  21.                             v: LONGINT;
  22.                             h: LONGINT;
  23.                     );
  24.                     1: (
  25.                             vh: ARRAY[0..1] OF LONGINT;
  26.                     );
  27.             END;  { LongPt }
  28.  
  29.         LongRect = RECORD
  30.                 CASE INTEGER OF
  31.                     0: (
  32.                             top: LONGINT;
  33.                             left: LONGINT;
  34.                             bottom: LONGINT;
  35.                             right: LONGINT;
  36.                     );
  37.                     1: (
  38.                             topLeft: LongPt;
  39.                             botRight: LongPt;
  40.                     );
  41.             END;  { LongRect }
  42.  
  43. IMPLEMENTATION
  44. END.